home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / LOTTORTS / COLLFBAL.LZH / TEAMS.DAT < prev    next >
Text File  |  1986-07-24  |  2KB  |  43 lines
  1.     AIR FORCE ChoiceNum ALABAMA writeln('PreARIZONA for no chang ARIZONA ST.oxy(1,10)ARKANSAS GameArray[kARMY
  2.   begin
  3.     ifAUBURNNum = 3 then
  4. BAYLORin
  5.       LowVBOSTON COLLEGEite('TBROWN       =  ',TeaBYUay[Team1]);
  6.     
  7. CALIFORNIA= HomeTeam
  8. CINCINNATIln('*')
  9.  TULSA else writeln;CLEMSONrite('Team 2 COLGATE  ',TeamArrayCOLORADO
  10.       if TCOLUMBIAmeTeam then CORNELL'*')
  11.            DARTMOUTHeln;
  12.      DUKEeln('point sprea E. CAROLINAad:4:1);FLORIDAf Team1score  FLORIDA ST.writeln('GEORGIAcore  =  ',Te GEORGIA TECH     if HARVARDre <> 157 the
  13. HOLY CROSSTeam 2 scoHOUSTON,Team2score);ILLINOIS;
  14.     NormVINDIANA   gotoxy(1,1IOWA    write('Team IOWA ST.=  ');
  15.     KANSASTeamOne);
  16.    
  17. KANSAS ST. = '' thenKENTUCKY=TeamArray[T
  18. LOUISVILLE write('TeLSU        =  ');
  19.  MARYLAND(TeamTwo);
  20. MEMPHIS ST.wo = '' t
  21. MIAMI FLA.:=TeamArraMIAMI O.
  22.     write(MICHIGANread  =  '); MICHIGAN ST.SprStr);    MINNESOTAprStr = ''  MISSISSIPPIspread
  23.  MISSISSIPPI ST.=valuMISSOURI;
  24.     if Te N. CAROLINA157 thenN. CAROLINA ST.  wri N. TEXAS ST.ore  =  NAVY      readln(newNEBRASKA      if new
  25. NEW MEXICOthen {null NORTHWESTERN Team1sc
  26. NOTRE DAMEvalue(newsOHIO ST.      write(OKLAHOMAcore  =  '); OKLAHOMA ST.n(newscoOREGON     if newsco
  27. OREGON ST.n {null}
  28. PENN ST.e Team2score PENNSYLVANIA(newscorPITT    end;
  29.     Ve    PRINCETONVerifyTeamsPURDUEe,TeamTwo);
  30.  RICE VerifyBoth thenRICHMONDy
  31.       elsRUTGERS
  32.         writ S. CAROLINAor!'^G^G)S. MISSISSIPPI;
  33.    SAN DIEGO ST.;
  34. end; SAN JOSE ST.      { SYRACUSEto check parSMU    }
  35.         evSTANFORDsetparity:=eTCUarity;     { set TEMPLEn parity          TENNESSEE     odd   TEXASetparity:=oddpa    TEXAS A&M { set for 
  36. TEXAS TECH          TULANE    none     :UCLAarity:=noparity;USC   { set for no pUTAH ST.        }
  37.  UTEP  else
  38.         
  39. VANDERBILTsetparity:    VILLANOVA       { deVIRGINIAno parity   VIRGINIA TECH end;
  40. VMI  case s of       W. VIRGINIA          WAKE FORESTse for st
  41. WASHINGTON   }
  42.     WASHINGTON ST.: stopWILLIAM & MARY          WISCONSINbit        WYOMING  }
  43.         YALEopbit : stopbits